Footnote Object Example

The following example sets the footnote location, text and color for a chart.

Private Sub Command1_Click()

   With MSChart1.Footnote
      ' Make Footnote Visible.
      .Location.Visible = True
      .Location.LocationType = _
      VtChLocationTypeBottomLeft

      ' Set Footnote properties.
      .text = "Chart Footnote"
      .VtFont.VtColor.Set 255, 0, 0
   End With

End Sub